home *** CD-ROM | disk | FTP | other *** search
/ B Soft 2 / B-Soft_2_19xx_Maik__Mike_de_Side_A.d64 / the codeknacker (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  42 lines
  1. 1 print"[155][147]"
  2. 5 poke53281,4:poke53280,0
  3. 10 poke54296,15:poke54278,235
  4. 20 fori=1to100
  5. 30 poke 54276,17:poke54273,99+100*rnd(4)
  6. 40 next:poke54276,0
  7. 50 print"    [213][201] [213][201] [213][195][195][201] [213][201]  [213][201]  [213][195][195][201]"
  8. 60 print"    [194][194][160][194][194][160][194][213][195][203][160][194][194][160][160][194][194][160][160][194][213][201][194]"
  9. 70 print"    [194][202][195][203][194][160][194][202][195][201][160][194][194][160][160][194][194][160][160][194][194][194][194]"
  10. 80 print"    [194][213][195][201][194][160][194][213][195][203][160][194][194]  [194][194][160][160][194][194][194][194]"
  11. 90 print"  [160][160][194][194][160][194][194][160][194][202][195][201][160][194][202][201][160][194][202][201][160][194][202][203][194]"
  12. 100 print"    [202][203] [202][203][160][202][195][195][203][160][202][195][203] [202][195][203][160][202][195][195][203]"
  13. 110 print:print
  14. 120 print"   here's the real!!!                 [146]"
  15. 130 forx=1to1000:nextx
  16. 150 poke53280,7:forx=1to500:nextx
  17. 160 poke53280,3:forx=1to500:nextx
  18. 170 poke53280,5:forx=1to500:nextx
  19. 190 poke53280,14:forx=1to500:nextx
  20. 200 poke53280,4:forx=1to500:nextx
  21. 210 poke53280,6:forx=1to500:nextx
  22. 215 print
  23. 220 print"          i am presenting:"
  24. 225 print
  25. 230 print"          the codeknacker "
  26. 240 print"you have to break some codes."
  27. 250 print"if you want to end,press run/stop[146]"
  28. 260 print"now we are starting!"
  29. 270 print" best comicer "
  30. 280 input"who is it ";qw$
  31. 290 ifqw$="otto" then print" next code!!!"
  32. 300 ifqw$<>"otto" then print"wrong code!":goto 280
  33. 302 forx=1to1000:nextx
  34. 305 print"[147]"
  35. 310 input"you watch at it ";we$
  36. 320 ifwe$="tv" then print"next code!"
  37. 330 ifwe$<>"tv" then print"wrong code!":goto 310
  38. 340 forx=1to1000:nextx
  39. 350 input"james b. ";er$
  40. 360 ifer$="007" then print"you have had enough,the game is over."
  41. 370 ifer$<>"007"then print"wrong code!":goto 350
  42.